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Our recent computer program TQFT allows the actual computation of the 
projective representation of the mapping class group of a surface on its Verlinde 
modules. The program is build upon the fusion formulae of Roberts, Masbaum 
and Vogel [L] , [M- V] , [R] . The author is greatly indebted to Gregor Masbaum 
for his explanations during the writing of the program. The program uses the 
powerful calculator Pari-gp. 

The actual program is mainly written for surfaces i of genus g > 1 with 
one boundary component. We think of the surface i as the boundary of a 
thickening Hg in of the trivalent graph Tg of Fig. 1. The graph F^ has 
3g — 1 edges. The Verlinde module VJf j appears as a vector space over the field 
C2fc+4 = Q(^)/('^'2A:+4(^)), whcre $2fc+4 is the cyclotomic polynomial, whose 
roots are the primitive {2k + 4)th roots of unity. The space V/^ can be viewed 
as the C2k+4: span of the set of admissible {k, z)-colorings of the edges of the 
graph Tg by integers. An admissible {k, ■i)-coloring of F^ is by definition an 
edge coloring c : Edge(Fg) Z satisfying the following conditions: 

1. For each edge e the integer c(e) is even and satisfies < c(e) < k; 

2. For each node of F^, with adjacent edges ei, 62, 63 the colors c(ei), 0(62), 0(63) 
satisfy the triangular inequalities and the inequality c(ei) + 0(62) + 0(63) < 2/c; 

3. The color of the outgoing edge is i. 



We describe the action of the mapping class group Mod^^i on V^^ in terms of 
the actions of the following generators of Mod^^i. Let Ae be (up to isotopy) the 
simple loop on Sg^i bounding in Hg an embedded disk having one transversal 
intersection with edge e. Let Br be the simple loop surrounding the handle r. 
The group Modg^i is generated by the Dehn twists about the and Br- 

We explain some basic possibilities of the program. See the OOREADME 



of http : / / www . geometr ie . ch/TQFT and also have a look at the explanations 
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in the comments of the pari-script tqft.gp. The program TQFT can only be 
called from a Pari session. 




Fig. 1. Handle body of genus 3. Trivalent graph with input edge. 

Now start a pari session Pari-gp with the command "gp" and read the file 
tqft.gp into the pari session. The command 

init_so{k) 

initializes the global variable A and the field C2fc+4 = Q(A)/($2A:+4(^))- The 
command 

initjboom_so{[0, 1, .., g — 

initializes the graph Tg and computes the list of its admissible {k, i)-colorings. 
The commands 

twA{e) 
twB{r) 

compute matrices with coefficients in the field C2fc+4 of the action of the right 
Dehn twist about A^. or in the space Vk^i with as basis the list of admissible 
colorings. 

Our computations lead to the following results: 
Case genus g = 1. 
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In this case the group Mod^^i is identified via its action on Z) with 

SL(2,Z). The space V^^j is generated by the admissible colorings (j, i) of the 
following graph 

The admissibility conditions restrict to: 

i < 2j, i + 2j < 2k, j even 

hence we have the colorings 

(j,0,j = V2,V2 + 2,---,(fc-l-i)/2 

if i and k — 1 are divisible by 4, 

(j,z),j=^/2 + l,^/2 + 3,---,(A;-l-^)/2 

, if i nor k — 1 are divisible by 4, 

(j,2),j = V2,^/2 + 2,---,(/c -3 -^)/2 

if i divisible by 4 but not k — 1 and finally 

(j, z), J = ^/2 + 1, V2 + 3, ■ ■ ■ , (fc - 1 - z)/2 

if k divisible by 4 but not i. So for k = 2h + 1 > 3 the dimension of the vector 
space V2\+i_2 is ^■ 




Fig. 2. Handle body of genus 1. Loops A and B. 
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Let Di,D2 be the right Dehn twists about the curves Ai,Bi of the Fig. 
2. The actions in homology Di-^ and ior a suitable orientation of the the 
torus are given by the matrices L>i.^ = [1, 1; 0, 1] and = [1, 0; —1, 1]. The 
actions of V^2 obtained by doing first the commands: 

init-So{5); initj)oom-so{[0], 2); 
followed by 

twA{l) 
for and by 

twB{l) 

for £>2;5,2- One gets the matrices (remember that the coefficients are in C14): 



„ _ fA^-A^ + A^-A^ + A-l 0\ 

^1;5,2 = 

/ 3/i5,l/l4,2/i3_5/i2,l/i_4 ^/l5,8/i4_5/i3,2 42_64|3x 
I =fA^ + f ^4 - + 5^2 _ 1^ + 4 4^5 _ 1^4 ^ 5^3 _ 2^2 ^ 6^ _ 3 j 



We now change the level to A; = 7 and work with the representation : 
SL(2, Z) ^ PGL(V7|2) = PGL(3,Ci8). This requires the commands: 

init-so{7);initj)oo'm-so{[0], 2]; 

The image of the right Dehn twist about ^4(1) is represented by the follow- 
ing matrix with coefficients in Cis = Q{A)/{A^ — A^ + 1) 

Dl-7,2 = 

(-AO \ 

-A^ 

V A^-l) 

It is interesting to observe that the matrices Di.j 2 and its inverse D^.^ 2 
do not represent conjugate elements in the group PGL(3, Cig) , since the class 
function m e PGL(3, Cig) ^ trace(m)^/det(m) G Cig takes on £'i;7,2 the value 

Mod{2A^-A'^,A^-A^ + l) 
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and on -D^.^ 2 the value 

Mod{-A^-A, + 

It follows, as noticed by Vladimir Turaev, that the representation 

P7:SL(2,Z)^PGL(y,y 

does not extend to a representation on GL(2, Z) since [1, 1; 0, 1] and [1, —1; 0, 1] 
are in GL(2, Z) conjugate. 

Our next observation is that the images of the matrices a = [7, 3; 2, 1] and 
b = [7,1; 6,1] under ps : SL(2,Z) ^ PGL{V,]^) = PGL(2, Q(A)/($i4(A)) 
are not conjugate in PGL(2, Cl{A)/{(^ 14(A)). This is worth noticing since the 
matrices a, b are conjugate in SL(2, Q). 

Prom this observation we speculate about a positive answer to the follow- 
ing question: given two elements a,b & SL(2, Z) that are not conjugate in 
SL(2, Z) does there exist k > 3, A; odd, such that the images pk{o)-iPk{b) are 
not conjugate in PGL(2, Q(^)/($2fc+4(^))? 

We wish to compute for a — [7, 3; 2, 1] and b — [7, 1; 6, 1] in level k — b and 
with input color i = 2, so initialize back to k — — 2 with: 

init-So{7); initJjoom^sodO], 2]; 

The following commands create the matrices a, b: 

a = Mat{[7, 3; 2, 1]); 6 = Mat{[7, 1; 6, 1]); 

With the commands: 

wa — slw{a); wb = slw{b); 

we write a, b as products of the matrices Di.^ = [1, 1; 0, 1] and D2-* = [1, 0; 1, —1]. 

""""((J I) (J I) (J I) (I S) (1 ?)) 

-^((j ;) (1 ?) ii I) {\ I) {\ ?) (1 ?) (1 ?)) 

The corresponding products of the matrices -Di;5,2 and -D2;5,2 computes the 
actions Va and Vb of a and 6 on Vl2- On gets these matrices directly with the 
following commands: 

Va = eval-sl{a, 5, 2);Vb = eval-sl{b, 5, 2); 

Va = 

( \A^ - \A^ + - + |A - f + - + - |A + i \ 

I f + + _ |yl2 + 1^ _ I + + 4^3 _ + 1^ _ i ; 
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/ =AA^ + - + + + f + - + + + f \ 

I 4 45 _ 1 44 I 5 43 _ 2 42 _ 1 4 _ 3 1 45 _ 1 44 _ 2 43 _ 2 42 _ 1 4 _ S ) 

V -r ,jl± ^J-i y y^l y^ y^ y^ y / 

Our claim is that Va, Vb are not conjugate in PGL(2, C14): The quantities 

traceCVa)"^ trace{VbY ^ 

det{Va) ^ det{Vb) ^ 

are conjugacy invariants in the group PGL(2, C14) and we deduce our the claim 
from 



'"Zlyf = Mod{-3A'' + 2A^ - + + 5, $i4(A)), 

The representations pk : SL(2,Z) PGL(2, Q(yl)/($2fc+4(^))) can be 
lifted to GLi(2, Q(74)/(<l>2A:+4(A))//X2fc+4, hence the maximal absolut value of 
(j(trace(pfe(a))), a running over all the embeddings of the field Q(A)/($2fc+4(^)) 
into C, is an invariant for a. Here we have denoted by GLi the subgroup 
of elements in GL having a root of unity as determinant. 

The maximal absolut value of (T(trace(p5(a))) and of (7(trace(p5(6))) are 
computed with the commands: 

normk{trace{y a) ) ; normk {trace{Vb) ) ; 

We get 

Halls = 2.8019377358048382524722046390148901023 

Il&ll5 = l, 

showing once more that Va, Vb are not conjugate in PGL(2, Cu). 

Our second experiment concerns the growth of the TQFT action of the ma- 
trix a = [2, 1; 1, 1]. We have observed that the inequalities ||a||fc < trace{a) = 
3,k — 3,7,9, ■ • • hold, and that 3 is the supremum of {||a||fe | k odd}. Here 
the output of the following command line: 

(15 : 12) gp > for{i = 1, 16, = 2 * i + 1; 
print{normk{trace{eval-sl{[2, 1; 1, 1], k, 2))))); 

1 

2.2469796037174670610500097680084796213 
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2.8793852415718167681082185546494629398 
2.9189859472289947797807361141326553981 
2.7709120513064197918007510440301977572 
1 

2.8649444588087116091462317836431267725 
2.9727226068054447472050183896381342215 
2.9776616524502570901394857658680172261 
2.9258345746955985900304471947464775986 
1 

2.9460897411596476776657703455693918400 
2.9882759143087192179106054317591031337 
2.9897386467837902926427066197674389859 
2.9638573945254134007973488852494919219 
1 

time = 23mn, 6, 060 ms. 

Since V5 2 has dimension 2, we may deduce from the second hne of output 
||a||5 = 2.246..., that the action of a = [2, 1; 1, 1] on V^2 is a very simple 
and exphcit example of an element of infinite order in TQFT, see [F] , [Gi] , [M] . 
Indeed, the product of the two eigenvalues Ai,A2 of P5(a) is a 14th root of 
unity and for some embedding a of the field that contains Ai,A2 we have 
|(j(Ai) + cr(A2)| > 2; it follows max(|cr(Ai)|, |cr(A2)|) > 1. It follows from the 
corollary of Theorem 2 [Gi] of P. Gilmer that the action of a on V^q any k are 
periodic. 

Case g > I. 

The two slalom knots Ki and K2, see [AC1,AC2], of the planar rooted trees 
[0, 1, 1, 1, 2] and [0, 1, 1, 1, 3] in the table of KNOTSCAPE [H-T] are the knots 
13nl320 and 13nl291 respectively. According to the author's experience, it 
is difficult to separate this pair of mutant knots by invariants. They have 
for instance, equal Kauffman polynomial and HOMFLY polynomial. More- 
over, the Khovanov homologies coincide, as one can verify using the program 
KhoHo of Alexander Shumakovitch, see http://www.geometrie.ch/KhoHo, 
With SNAPPEA [W] we were able to show that these knots have non isomor- 
phic rigid symmetry groups. With SNAP [G] we could not find a distinction 
based on arithmetic properties of the hyperbolic structures on the comple- 
ments. The knots are fibered with fibers of genus 5 and the monodromy 
diffeomorphisms can be written explicitly in terms of the underlying planar 
rooted trees as products of Dehn twist. 
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The program TQFT was written and especially designed in order to com- 
pute the action of monodromies of slalom knots in TQFT. The following com- 
mand hne computes the TQFT actions for level A; = 3 and input color i — 2 
on Vi^2- 

ci = coxeter{[0, 1, 1, 1, 2], 3, 2); ca = coxeter{[0, 1, 1, 1, 3], 3, 2); 

The compution is finished after: time = 5mn, 930 ms. We do not ask for an 

output on the screen, since Ci,C2 are square matrices of size 275 representing 

elements in PGL(275, Cio). First we compute the traces and get: 

trace{ci) = Mod{7A^ + + 5A - A^A'^ - + - A + 1), 

trace{c2) = Mod{7A^ + A^ + 5A - A, A^ - A^ + - A + 1). 

So we have equal non vanishing traces. We compute traces of iterates: 

trace{cl) = Mod{-13A^ + 18A^ + AA + 25, A^ - A^ + A^ - A + 1), 

trace{4) = Mod{-13A^ + 18A^ + AA + 25, A"^ - A^ + - A + 1). 

Again equal, so, we continue with traces of third powers: 

trace{cl) = Mod{-A7A^ - 56A'^ - 65A - 2, A^ - A^ + A"^ - A + 1), 

tracelcl) = Mod{-62A^ - A7A^ - Q8A - 6, A^ - A^ + A^ - A + 1). 

Third power traces are different, so since the traces of first powers are equal 

and non-vanishing, we conclude that the TQFT-actions of the monodromies 

of the knots Ki, K2 are not conjugate in PGL(275, Cio). 

We wish to compute for the two knots Ki, K2 also with input color i = 0, 
so we use the commands: 

Ci = coxeter{[0, 1, 1, 1, 2], 3, 0);c2 — coxeter{[0, 1, 1, 1, 3], 3, 0); 
which was done after time — 2mn, 18, 840 ms. This corresponds to a study of 
the monodromy as a diffeomorphism of the closed surface of genus 5. We now 
get matrices of smaller size 175 and as before, the separation of the knots with 
traces of third powers: 

trace{ci) = Mod{5A^ + 3A - 3, A^ - A^ + A^ - A + 1), 

trace{c2) = Modl5A^ + 3A - 3, A^ - A^ + A^ - A + 1), 
tracelcf) = ModlsA^ + 11 A^ + 3A + 15, A^ - A^ + A^ - A + 1), 
trace{ci) = Mod{-8A^ + llA^ + 3A + 15, A^ - A^ + A^ - A + 1), 
tracelcl) = Mod{-20A^ - 37 A^ - 35 A - 25, A'^ - A^ + A^ - A + 1), 
trace{4) = Mod{-29A^ - 31 A^ - 38A -13,A'^-A^ + A^-A + 1). 



The two slalom knots of the planar rooted trees [0, 1, 1, 3, 3, 4] and 
[0, 1, 1, 3, 3, 5] are the knots 15n30444 and 15n30419 respectively. For this pair 
we have again that the traces of the first and second powers of the actions of 
the monodromies in level k = 3 with input color i = on V^q coincide, and 
that the traces of the third powers distinguish the knots of this pair. For this 
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calculation the size of the matrices grew up to 675. 
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